home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Divers Computer Bench⁄Apple / Logiciels Apple (dpt AppleSoft) / Apple Media Tool / Apple Media Tool Démo / Exemples AMT / Travel / For Programmers / SOURCES / S5_WALKS.k < prev    next >
Text File  |  1993-07-01  |  2KB  |  124 lines
  1. object S5_WALKS is MEDIADISTRIBUTOR
  2. has
  3.     
  4.     OffScreen()
  5.         do
  6.             self.Enable(false);
  7.             self.Show(true);
  8.         end;
  9.     
  10. with
  11.     Enabled is false;
  12.     Running is false;
  13.     Duration is -1;
  14.     Shown is false;
  15.     X is 0; Y is 0; Width is 640; Height is 480;
  16.     Items is [
  17.         S5A1_S5_WLK,
  18.         S5A13_AUD_CLK_WAV,
  19.         S5A14_S5_WLKB,
  20.         S5A18_S5_WLKM
  21.     ];
  22. end;
  23.  
  24. object S5A1_S5_WLK is MEDIADELEGATOR
  25. has
  26.     
  27.     OffScreen()
  28.         do
  29.             self.Enable(false);
  30.             self.Show(true);
  31.         end;
  32.     
  33. with
  34.     Target is C21_S5_WLK;
  35.     Enabled is false;
  36.     Running is false;
  37.     Duration is -1;
  38.     Shown is false;
  39.     X is 0; Y is 0; Width is 640; Height is 480;
  40.     HotRegion is {
  41.         $01DF0002, $0000027F, $01E00000, $FFFFFFFF
  42.     };
  43. end;
  44.  
  45. object S5A13_AUD_CLK_WAV is MEDIADELEGATOR
  46. has
  47.     
  48.     OffScreen()
  49.         do
  50.             self.Enable(true);
  51.             self.Show(true);
  52.         end;
  53.     
  54.     MouseDown(theX, theY)
  55.         do
  56.             S5A13_AUD_CLK_WAV.Run(true);
  57.             APPLICATION.GoBack(MEDIADISTRIBUTOR1);
  58.             TRANSITION.Set(WipeLeft, 30);
  59.         end;
  60.     
  61. with
  62.     Target is C126_AUD_CLK_WAV;
  63.     Enabled is false;
  64.     Running is false;
  65.     Duration is 0;
  66.     Shown is false;
  67.     X is 17; Y is 422; Width is 62; Height is 52;
  68. end;
  69.  
  70. object S5A14_S5_WLKB is MEDIADELEGATOR
  71. has
  72.     
  73.     OffScreen()
  74.         do
  75.             self.Enable(true);
  76.             self.Show(false);
  77.         end;
  78.     
  79.     MouseDown(theX, theY)
  80.         do
  81.             self.Show(true);
  82.         end;
  83.     
  84.     MouseUp(theX, theY)
  85.         do
  86.             S5A13_AUD_CLK_WAV.Run(true);
  87.             self.Show(false);
  88.             APPLICATION.Refresh();
  89.             TRANSITION.Set(WipeRight, 30);
  90.             APPLICATION.GoTo(S6_COIT);
  91.         end;
  92.     
  93. with
  94.     Target is C22_S5_WLKB;
  95.     Enabled is false;
  96.     Running is false;
  97.     Duration is -1;
  98.     Shown is false;
  99.     X is 18; Y is 179; Width is 225; Height is 40;
  100. end;
  101.  
  102. object S5A18_S5_WLKM is MEDIADELEGATOR
  103. has
  104.     
  105.     OffScreen()
  106.         do
  107.             self.Enable(true);
  108.         end;
  109.     
  110.     OnScreen()
  111.         do
  112.             self.Run(true);
  113.         end;
  114.     
  115. with
  116.     Target is C23_S5_WLKM;
  117.     Enabled is false;
  118.     Running is false;
  119.     Duration is 0;
  120.     Shown is false;
  121.     X is 375; Y is 40; Width is 240; Height is 180;
  122. end;
  123.  
  124.